home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 1-Reference / •ARPL stacks / ARPL FeedBack / ARPL FeedBack / background_2749.txt < prev    next >
Text File  |  1990-05-21  |  8KB  |  320 lines
  1. -- background: 2749 from stack: in
  2. -- bmap block id: 3193
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Feedback
  6.  
  7.  
  8. -- part 4 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=98 top=51 right=78 bottom=508
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 128
  16. -- text size: 18
  17. -- style flags: 0
  18. -- line height: 24
  19. -- part name: Prompt
  20.  
  21.  
  22. -- part 52 (field)
  23. -- low flags: 80
  24. -- high flags: 0007
  25. -- rect: left=4 top=272 right=318 bottom=447
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: System
  34.  
  35.  
  36. -- part 53 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=55 top=310 right=338 bottom=97
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Help
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   helpHandler
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 57 (button)
  56. -- low flags: 00
  57. -- high flags: 2000
  58. -- rect: left=367 top=310 right=338 bottom=409
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Back
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   lock screen
  70.   pop cd
  71. end mouseUp
  72.  
  73.  
  74.  
  75. -- part 59 (field)
  76. -- low flags: 80
  77. -- high flags: 0007
  78. -- rect: left=2 top=26 right=310 bottom=510
  79. -- title width / last selected line: 0
  80. -- icon id / first selected line: 0 / 0
  81. -- text alignment: 0
  82. -- font id: 3
  83. -- text size: 12
  84. -- style flags: 0
  85. -- line height: 16
  86. -- part name: Tracking
  87. ----- HyperTalk script -----
  88. on mouseup
  89.   put usertracking() into me
  90. end mouseup
  91.  
  92.  
  93.  
  94. -- part 61 (button)
  95. -- low flags: 80
  96. -- high flags: 2000
  97. -- rect: left=104 top=29 right=41 bottom=116
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 20269 / 20269
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Go Away
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   global helpMode
  109.   lock screen
  110.   hide me
  111.   hide bg fld "help"
  112.   hide bg btn "wiiiiiiiiiiiiiiiiiiiii"
  113.   unlock screen
  114.   put false into helpMode
  115. end mouseUp
  116.  
  117. on mouseDown
  118.   set cursor to arrow
  119. end mouseDown
  120.  
  121.  
  122.  
  123.  
  124. -- part 69 (button)
  125. -- low flags: 00
  126. -- high flags: 0000
  127. -- rect: left=308 top=310 right=338 bottom=352
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Send
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.  
  139.   --// Create AppleLink outbasket document from the info in this stack
  140.   set cursor to watch
  141.   if field "text" is empty then
  142.     answer "You have not created a memo to send yet. Please type something " &"into this scrolling field."
  143.     select after text of bg fld "text"
  144.     exit mouseup
  145.   end if
  146.  
  147.   --// Address information
  148.   put "Grabel1" into toAddress
  149.   put empty into ccAddress
  150.   put "Feedback" into mySubject
  151.  
  152.   --// Text of memo
  153.   put "Memo to follow‚Ķ" & return & return into myText
  154.   put field "text" & return & return after myText
  155.  
  156.   --// Get system information
  157.   put " ----------------------------------------------------------" & "---------------------" & return after myText
  158.   put "System configuration data follows‚Ķ" & return & return after myText
  159.   put sysEnvirons() & return after myText
  160.  
  161.   --// User tracking data
  162.   put "Feedback tracking data follows..." & return & return after myText
  163.   put userTracking() after myText
  164.  
  165.   --// XCMD below is from Steve Maller, Apple Computer, Inc.
  166.   --// it stores message as "SendMe #n" in system folder
  167.  
  168.   --// Assume AppleLink 5.0
  169.   makeSendMe5 toAddress, ccAddress, mySubject, myText          --// XCMD
  170.   if the result is not empty then  -- report problem, don't clear old info yet
  171.     answer it
  172.     exit mouseUp
  173.   else                     -- stored OK, clear out containers
  174.     lock screen
  175.     put empty into bg fld "Tracking"
  176.     put empty into bg fld "Text"
  177.     unlock screen with dissolve
  178.   end if
  179. end mouseUp
  180.  
  181. function SysEnvirons
  182. --// Handler to fill out all system environment attributes for
  183. --// tracking information
  184.  
  185. global xErr,dev1
  186.  
  187. set cursor to busy
  188.  
  189. if dev1 then put "Reading system parameters‚Ķ"
  190. put "Configuration: " & SysEnvironment() & return & return into sysInfo
  191.  
  192. put "‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ RAM       = " & TotalRam()/1024 & "K" & return after sysInfo
  193.  
  194. if dev1 then put "Getting Heapspace:"
  195. put "‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ Heapspace = " & the heapspace & return & return after sysInfo
  196.  
  197. set cursor to busy
  198.  
  199. if dev1 then put "Getting Applications running‚Ķ"
  200. put "‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ Applications running:" & return after sysInfo
  201. put ApplicationList() & return & return after sysInfo
  202.  
  203. set cursor to busy
  204.  
  205. if dev1 then put "Getting INIT Info:"
  206. put "‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ INIT Info:" & return after sysInfo
  207. put putCommas(INITList("detailed")) & return & return after sysInfo
  208.  
  209. set cursor to busy
  210.  
  211. if dev1 then put "Getting SCSI Info‚Ķ"
  212. put "‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ SCSI Info:" & return after sysInfo
  213. repeat with SCSINdx = 0 to 6
  214.   set cursor to busy
  215.   put SCSIinfo(SCSINdx,"noDialog:xErr") into SCSIdata
  216.   if SCSIdata <> empty then
  217.     put putCommas (SCSIdata) into SCSIdata
  218.     put "SCSI ID #:" && SCSINdx && SCSIdata & return after sysInfo
  219.     put empty into xErr
  220.   end if
  221. end repeat
  222.  
  223. if dev1 then put "Getting Monitor Info:"
  224. put return & "‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ Monitor Info:" & return after sysInfo
  225. repeat with MonitorNdx = 1 to MonitorCount()
  226.   set cursor to busy
  227.   put monitorConfig(MonitorNdx) into MonitorInfo
  228.   if MonitorInfo <> empty then put MonitorInfo after sysInfo
  229. end repeat
  230.  
  231. set cursor to busy
  232. if dev1 then put empty
  233. hide msg
  234.  
  235. return sysInfo
  236. end SysEnvirons
  237.  
  238. function UserTracking
  239. global RPUserTracking
  240. put "Apple Electronic Forms,"& "Apple Literature Guide,"& "User Groups DB,"& "Success Stories,"& "Third Party Developer DB,"& "Pres:Apple,"& "Pres:Apple Products,"& "Pres:Markets,"& "Pres:Service&Support,"& "Apple Graphic Library,"& "Apple Graphics Source,"& "Demos:Apple,"& "Demos:3rd Party,"& "Pres:Apple/DEC Intro" into list
  241.  
  242. put line 18 of cd fld "saveGlobals" into lastDate
  243. put the date into line 18 of cd fld "saveGlobals"
  244. if lastDate is empty then put "00/00/00" into lastDate
  245. put "Last Transmission was: "&lastDate & return & return into hitlist
  246.  
  247. repeat with n = 1 to the number of items in list
  248.   if item n of RPUserTracking is empty then
  249.     put 0 into item n of RPUserTracking
  250.   end if
  251.   put "Map button ‚Äú"&item n of list&"‚Äù received "& item n of RPUserTracking &" hit(s)." & return after hitlist
  252. end repeat
  253. put return & RPUserTracking after hitlist
  254. put empty into RPUserTracking
  255. return hitlist
  256. end userTracking
  257.  
  258. function putCommas block
  259. repeat until offset (return,block) = 0
  260.   set cursor to busy
  261.   put "," into char offset(return,block) of block
  262. end repeat
  263. return block
  264. end putCommas
  265.  
  266.  
  267.  
  268.  
  269.  
  270. -- part 70 (button)
  271. -- low flags: 00
  272. -- high flags: 2000
  273. -- rect: left=7 top=310 right=338 bottom=49
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Quit
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   quitHandler
  285. end mouseUp
  286.  
  287.  
  288.  
  289. -- part 71 (button)
  290. -- low flags: 00
  291. -- high flags: 2000
  292. -- rect: left=463 top=310 right=338 bottom=505
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: Map
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   mapHandler
  304. end mouseUp
  305.  
  306.  
  307.  
  308. -- part 72 (field)
  309. -- low flags: 00
  310. -- high flags: 0007
  311. -- rect: left=43 top=79 right=285 bottom=491
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 0 / 0
  314. -- text alignment: 0
  315. -- font id: 4
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Text
  320.